library(log4r)
##
## Attaching package: 'log4r'
## The following object is masked from 'package:base':
##
## debug
library(ContrApption)
library(testthat)
load("../basicDE-Experiment.Rds")
rownames(coldata) <- NULL
createContrApption(counts = normCountsSig, annotation = coldata)
## Warning in if (!(colnames(data) == rownames(annotation)) & is.null(sampleCol))
## {: the condition has length > 1 and only the first element will be used